home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Support / Lang_Ada83.dfn < prev    next >
Text File  |  1997-12-03  |  2KB  |  132 lines
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Lang_Ada83.dfn 1.00 (23.6.96)
  4. ;
  5. ; This definition file contains definitions necessary to use Blacks Editor as
  6. ; an Ada 83 programmer's editor.
  7. ;
  8. ; Written by Marc Criley
  9. ; Adapted by Marco Negri
  10. ;
  11. ;------------------------------------------------------------------------------
  12.  
  13. DICTIONARY:
  14.  
  15.   abort
  16.   abs
  17.   accept
  18.   access
  19.   all
  20.   and
  21.   array
  22.   at
  23.   begin
  24.   body
  25.   case
  26.   constant
  27.   declare
  28.   delay
  29.   delta
  30.   digits
  31.   do
  32.   else
  33.   elsif
  34.   end
  35.   entry
  36.   exception
  37.   exit
  38.   for
  39.   function
  40.   generic
  41.   goto
  42.   if
  43.   in
  44.   is
  45.   limited
  46.   loop
  47.   mod
  48.   new
  49.   not
  50.   null
  51.   of
  52.   or
  53.   others
  54.   out
  55.   package
  56.   pragma
  57.   private
  58.   procedure
  59.   raise
  60.   range
  61.   record
  62.   rem
  63.   renames
  64.   return
  65.   reverse
  66.   select
  67.   separate
  68.   subtype
  69.   task
  70.   terminate
  71.   then
  72.   type
  73.   use
  74.   when
  75.   while
  76.   with
  77.   xor
  78. #
  79.  
  80.  
  81. TEMPLATES:
  82.  
  83.   "abort @;\n"
  84.   "abs (@)"
  85.   "accept @ () do\nend ;\n"
  86.   "access"
  87.   "array (@) of"
  88.   "begin\n"
  89.   "body is"
  90.   "case @ is\nend case;\n"
  91.   "constant"
  92.   "declare\n"
  93.   "delay @;\n"
  94.   "delta @"
  95.   "digits @"
  96.   "else\n"
  97.   "elsif @ then\n"
  98.   "end ;\n"
  99.   "entry @ ();\n"
  100.   "exception"
  101.   "exit"
  102.   "for @ in  loop\nend loop;\n"
  103.   "function @ () return "
  104.   "generic\n"
  105.   "goto @\n"
  106.   "if @ then\nend if;\n"
  107.   "limited private;\n"
  108.   "loop\n  @\nend loop;\n"
  109.   "others => @"
  110.   "package @ is\n"
  111.   "pragma @;\n"
  112.   "private"
  113.   "procedure @ () "
  114.   "raise @;\n"
  115.   "range @ .. "
  116.   "record\n  @\nend record;\n"
  117.   "renames @;"
  118.   "return"
  119.   "reverse"
  120.   "select\n  @\nend select;\n"
  121.   "separate"
  122.   "subtype @ is ;\n"
  123.   "task @"
  124.   "terminate;\n"
  125.   "then\n"
  126.   "type @ is ;\n"
  127.   "use"
  128.   "when @ =>"
  129.   "while @ loop\nend loop;\n"
  130.   "with @"
  131. #
  132.